home *** CD-ROM | disk | FTP | other *** search
- {$B-,D-,F-,I+,N-,R-,S+,V+}
-
- (*
- Timo Salmi UNiT BOoT
- A Turbo Pascal unit for rebooting
- All rights reserved 26-Jul-93
-
- This unit may be used and distributed freely for PRIVATE,
- NON-COMMERCIAL, NON-INSTITUTIONAL purposes, provided it is not
- changed in any way, and that a proper attribution is made. For ANY
- other usage, such as use in a business enterprise or a university,
- contact the author for the terms of registration.
-
- The units are under development. Comments and contacts are solicited. If
- you have any questions, please do not hesitate to use electronic mail for
- communication.
- InterNet address: ts@uwasa.fi (preferred)
- Bitnet address: SALMI@FINFUN
-
- The author shall not be liable to the user for any direct, indirect or
- consequential loss arising from the use of, or inability to use, any unit,
- program or file howsoever caused. No warranty is given that the units and
- programs will work under all circumstances.
-
- Timo Salmi
- Professor of Accounting and Business Finance
- Faculty of Accounting & Industrial Management; University of Vaasa
- P.O. BOX 297, FI-65101 Vaasa, Finland
-
- *)
-
- unit TSUNTBOT;
-
- (* ======================================================================= *)
- interface
- (* ======================================================================= *)
-
- uses Dos,
- TSUNTH; (* For internal processor type testing *)
-
- (* =======================================================================
- Reboot
- ======================================================================= *)
-
- (* Reboot the computer without memory tests. Resembles alt-ctrl-del.
- Inline coded. Use judiciously *)
- procedure WARMBOOT;
-
- (* Reboot the computer with memory tests. Inline coded. Use judiciously *)
- procedure COLDBOOT;
-
- (* Reboot the computer with file closing and cache flushing. Should
- thus be more secure than WARMBOOT and COLDBOOT, but no guarantees
- here either. REBOOT has many times more code than the other two
- boots. For a cold reboot set argument warm to false *)
- procedure REBOOT (warm : boolean);
-
-